EXTERNAL PROCEDURE TRJCLC (RPTR(MOVE$) MOV; ITEMVAR WORLD); EXTERNAL PROCEDURE CENTCLC (RPTR(MOVE$) MOV); EXTERNAL PROCEDURE STOPCLC (RPTR(MOVE$) MOV); EXTERNAL INTEGER PROCEDURE NEWARY(INTEGER LO, HI, DIMS); REQUIRE "TCALC.REL[AL,HE]" LOAD_MODULE;